home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).adf / Assembler-Tools / LSC.asm < prev    next >
Assembly Source File  |  1990-04-10  |  2KB  |  60 lines
  1. *********************************************
  2. * Programm: LSC                             *
  3. * Zweck:    Löscht Screen                   *
  4. * Datum:    10.04.90                        *
  5. * Autor:    TAIFUN                          *
  6. *********************************************
  7.  
  8. _SysBase         equ   4
  9. _LVOOpenLibrary  equ    -552
  10. _LVOCloseLibrary equ    -414
  11. _LVOOutput       equ    -60
  12. _LVOWrite        equ    -48
  13.  
  14. ********************** DOS/Library öffnen **********************
  15.  
  16. _main   move.l   #dosname,a1
  17.         moveq    #0,d0
  18.         move.l   _SysBase,a6
  19.         jsr      _LVOOpenLibrary(a6)
  20.         tst.l    d0
  21.         beq      ende
  22.         move.l   d0,_DOSBase
  23.  
  24. ********************* Ausgabe-Handle ermitteln ****************
  25.  
  26.         move.l   _DOSBase,a6
  27.         jsr      _LVOOutput(a6)
  28.         move.l   d0,d4
  29.  
  30. ********************* Screen löschen ***************************
  31.  
  32.         move.l   d4,d1
  33.         move.l   #lsc,d2
  34.         moveq    #1,d3
  35.         move.l   _DOSBase,a6
  36.         jsr      _LVOWrite(a6)
  37.  
  38. ********************* Library schließen ***********************
  39.  
  40.         move.l   _DOSBase,a1
  41.         move.l   _SysBase,a6
  42.         jsr      _LVOCloseLibrary(a6)
  43.  
  44. ********************* Falls Fehler Ende ***********************
  45.  
  46. ende    rts            ;Return zum CLI
  47.  
  48. ***************************************************************
  49. ********************* Datenbereich ****************************
  50. ***************************************************************
  51.  
  52. _DOSBase   dc.l   0
  53.  
  54. dosname    dc.b    'dos.library',0
  55.            cnop    0,2
  56.  
  57. lsc        dc.b    12
  58.            cnop    0,2
  59.  
  60.